Option Explicit On
Option Strict On

Imports TreeCreeper01Interfaces

Public Class cNeighbourhoodDiversityContrast
    Implements TreeCreeper01Interfaces.INeighbourhoodDiversityContrast


    Private pCenterPlant As IPlant
    Private pMeanTaxonomicContrastForNeighbourHood As Double

    Public Sub New(ByVal CenterPlant As IPlant, ByVal MeanTaxonomicContrastForNeighbourHood As Double)

        pCenterPlant = CenterPlant
        pMeanTaxonomicContrastForNeighbourHood = MeanTaxonomicContrastForNeighbourHood

    End Sub

    Public ReadOnly Property CenterPlant() As TreeCreeper01Interfaces.IPlant Implements TreeCreeper01Interfaces.INeighbourhoodDiversityContrast.CenterPlant
        Get
            Return pCenterPlant
        End Get
    End Property

    Public ReadOnly Property MeanTaxonomicContrastForNeighbourHood() As Double Implements TreeCreeper01Interfaces.INeighbourhoodDiversityContrast.MeanTaxonomicContrastForNeighbourHood
        Get
            Return pMeanTaxonomicContrastForNeighbourHood
        End Get
    End Property


End Class
